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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


N OF THe ABOVE gdh NOTICE. THIS SOFTWARE OR ANY 
HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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I OTHER 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
conPonat ion. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
Facility: RMS 


Abstract: 
This module contains commonly used file access support routines. 
Environment: VAX/VMS, executive mode 


Author: James A. Krycka, Creation Date: 09-DEC-1977 
Modified By: 
v03-018 JEJ0039 J _E Johnson 19-Jun-1984 


Fix NT$SGET FILESPEC to recognize that a resultant file 
spec has already been given back. This _is of importance 
because of the possible open Loop in NTSOPEN regerdine to 


BRO option. 
V03-017 JAKO145 J A Krycka 12-APR-1984 
Track changes in DAP message building algorithm. 
v03-016 cain J A Krycka 28-MAR-1984 


= r S¥S$GB DFNBC) instead of process buffered 1/0 byte Limit 
quota (BYTLM value from the UAF) as the basis for calculatin x 
requested DAP buffer size to send to the remote FAL in the DAP 
Configuration wospe. SET RMS_DEFAULT and SHOW RMS DEFAY T will 
allow the network block count Value to be set from T to 127. 
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| 
| 
| 
| 
rocess or system Network block count value (PIO$GB_DFNBC | | 
| 
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The size of NBC affects both file transfer per teraence and the 
largest record that can be exchanged in record I/0 mode. The 


remote FAL, of course, can force a smaller DAP buffer size (than 


RMS requests) to be used. 


pag be J A Kryc 20-MAR-1984 
Lay framework for use si logical Link Q10s to transfer more 
than 4K bytes of data. 


RASO223 n Schaefer 16-Dec-1983 
Change $SCBDEF hy SCB$xxx to SFSCBDEF and FSCB$xxx. 
JAKO127 12-SEP-1983 


Correct NTS$GET _FILESPEC. £9 property check for elipsis in 
directory component of a Fi e specification. 


JAKO105 JA Krycka 11-MAY-1983 
Enable access to large’ records (over 512 bytes in length) based 
on the negotiated DAP buffer size. 


KRMO107 K Malik LS pape ly -1983 
Update to support DAP V7.0 specification 
JAK0104 rycka 22-APR=-1983 


Enhance NTSEXCH_ tne to "dynamically determine a suggested DAP 
buffer size to Send to FAL (instead of using a predetermined 
value) based on BYTLM quota obtained from a call to $GETJPI. 


KRMO079 K Malik 31-Jan-1983 
Turn on indirect command file support. 
— 


K Malik 
ove nodename Saas FWAST _NODEBUF * sar A -NODEBUF (used by 
NSERC _LOGERR) 


(1), 


’ | 
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FILE ACCESS ROUTINES 137360- 1388 $334 :14 VAX/VMS Macro V04-00 Page 3 | 
V LARATIONS S-SEP-1984 16:20:11 RMS.SRCINTOACCFIL.MAR;1 (2) | 
} 
$008 95 -SBTTL DECLARATIONS 
0 96 | 
0000 97 ; : 
0000 98 ; Include Files: 
0000 99 ; 
0000 199 
0000 10 SDAPPLGDEF ; Define DAP prologue symbols 
0000 18 SDAPHDRDEF ; Define DAP message header 
0000 10 SDAPCNF DEF ; Define DAP Configuration message 
0000 104 SDAPACCDEF ; Define DAP Access message 
0000 105 $F ABDEF ; Define File Access Block symbols 
0000 196 $FWADEF ; Define File Work Area symbols 
0000 10 SIFBDEF : Define IFAB symbols 
0000 108 SNWADEF : Define Network Work Area symbols 
0000 109 $F SCBDEF 3; Define Scan Control Block symbols 
0000 110 
0000 111; 
0000 i 3; Macros: 
6000 113; 
0000 114; None 
0000 115; 
0000 116 ; Equated Symbols: 
0000 117; 
0000 118 
0000 119 ASSUME DAP$Q_DCODE_FLG EQ 0 
0000 120 ASSUME NWASQ"FLG EO 0 
0000 121 
0000 122 ; 
0000 123 ; Own Storage: 
0000 124; - 
0000 125; None 
0000 126 ; 
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++ 
NTSEXCH_CNF = engages in a DAP dialogue to exchange DAP Configuration 
messages with the remote FAL which includes negotiation of a DAP 
buffer size for subsequent message exchange. 
Calling Sequence: 
BSBwW NTSEXCH_CNF 


Input Parameters: 


RO Type of file access (DAP ACCFUNC code) 
R7 NWA address (=DAP) 

R8 FAB address 

RS IFAB address 

R10 FWA address 

R11 Impure Area address 


Implicit Inputs: 
DAPDEF constants 
$12 


PIO$GB_DFN 
SYS$GB~DFNBC 


Output Parameters: 
RO Status code (RMS) 
Ri-R6 Destroyed 
AP Destroyed 
Implicit Outputs: 


DAP control block 
NUASU_DAPBUF S1Z 


CDOOOCOCOCOOOCOCOOCOCOCOOCOOSOOSCOOCOOSOOOOOOOOOOOoOOo 
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NWAST~NODEBU 
NWA$B~NODBUF $12 
NWASBFILESY 
NWASB_OSTYPE 
NWASQ~ 

NWASQ- 


NWA$Q_BIGBUF 

IFBSL_DEVBUF SIZ 
Completion Codes: 

Standard RMS completion codes 
Side Effects: 

None 
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v04-000 NTSEXCH_CNF = EXCHANGE DAP CONFIGURATION oo Ee= 1 ob 1:3 211 CRMS.SRCINTOACCFIL.MAR; 1 Hon 3) Tat 
185 
: : § NTSEXCH_CNF:: ; Entry point 
188 ; 
8 189 ; Obtain specified Network Block Count (NBC) value which is a sysgen parameter 
4 139 3 and also settable via the DCL command SET RMS_DEFAULT/NETWORK_BLOCK_COUNT = n. 
000 192 ° 
55 Q0000000'9F 98 0900 198 CVTBL @#PIO$GB_DFNBC,R5 ; Get process network block count value 
0c 14 000 194 BGTR ; Branch if specified (non-zero & pos) 
55 00000000°9F 98 0009 195 CVTBL @#SYS$GB_DFNBC,R5 ; Get systen network block count value 
3. (14 BR 136 BGTR 10$ ; Branch if specified (non-zero & pos) 
55 1 dO 001 19 MOVL #1,R5 ; We should never get here as range of 
001 198 ; _DFNBC sysgen parameter is 1 to 127 
7F BF 5 0015 199 10$: CMPB R5,#127 ; Make internal NBC value between 1 and 
02 if 0019 200 BNEQ 208 : 126 so that requested DAP buffer size 
5 D7? 0018 01 DECL R5 ; (with overhead) will be < 65536 bytes 
001D 308 
Botp Soe : Dispatch to file operation specific code to process network block count. | 
001D 206 ° 
0010 307 ASSUME DAPSK_OPEN EQ 1 
001D 08 ASSUME DAPSK_CREATE EQ 
001D 09 ASSUME DAPSK_RENAME EQ 
001D 210 ASSUME DAPSK"ERASE EQ 4 
dts $i} ASSUME DAPS$K_DIR_LIST EQ 6 
001D $1 208: $SCASEB SELECTOR=RO- ; Dispatch on file access type | 
sb ais 3 Steet er 
001D 216 OPEN_CREATE- ; Open file | 
001D 17 OPEN_CREATE- ; Create file 
001D 18 ERASE_RENAME- ; Rename file | 
001D 19 ERASE_RENAME- ; Erase file 
001D $59 ERASE _RENAME- 3; Reserved 
001D 1 SEARCR- : Search file (DAP directory List) 
001D $$ > ; Any other type of access | 
$050 $3 + 
009p é : For erase and rename operations set NBC to one for minimum DAP buffer size. | 
002D : 
6 D 8 ERASE _RENAME : : For SERASE and SRENAME operations | 
55 01 400 D MOVL #1,R5 ; One page of memory is sufficient 
ee bos ? BRB EXCH_COMMON ; Join common code | 
03 3+ 
a03 5 3; For a search operation, scale down NBC (DAP buffer size) by a factor of four 
00 4 ; to reduce the time waiting for FAL to send the next bufferred set of messages, 
Bo 5 ; especially when FAL must open each file to return file attribute information. 
§ 3 This will help to ‘‘smooth out’ the display for the DCL DIRECTORY command. 
0 8 : However, for access to a process permanent file, set NBC to one for minimum 
p ib : DAP buffer size to conserve use of the process {/0 segment in Pl space. 
41° 
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YOe-000 NTSEX NF = EXCHANGE DAP CONFIGURATION a= SeE 13 4 16:20:11 RMS.SRCINTOACCFIL.MAR; 1 . 
SEARCH 3; For SSEARCH operation 
03 6B =€8 BLBS (R11) ,10$ ; Branch if not accessing a process 
55 ee MOVL Age ; _permanent file, else use one block 
55 3 ¢ 10$ ADDL2 #3,R ; Reduce NBC to approximately one-fourth 
55 55 FE BF ASHL #=0,R5,R5 : its value 
13° «11 BRB EXCH_COMMON : Join common code 


For open and create operervens use the specified NBC value as the basis for 
generating requested DAP buffer size unless we have a process permanent file. 


For access to a process permanent file, scale down NBC (DAP buffer size) by a 
factor of eight to conserve use of the process 1/0 segment in P1 space that 

is available to RMS. This reduction serves to increase the total number of 

oosees permanent files that can be simultaneously open for network access. 
ince the DCL OPEN command opens a prgcess permanent file and the DCL READ and 

and WRITE commands are Limited to 2048 byte records, the maximum NBC value 

will be 4 for process permanent files. 
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4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
; 
5 
5 
5 
5 
5 
é 
62 OPEN_CREATE: ; For SOPEN and SCREATE operations 
$° BLBS (R11) ,EXCH_ COMMON ; Branch if not accessing a process 
6 3 permanent file 
5 07 004 26 ADDL2 #7,R5 3; Reduce NBC to approximately one-eighth 
55 55 FD 8F 78 004 6 ASHL #-3,R5,R5 ; its value but not more than 4, so the 
4 50 Di 004 6 CMPL RO,# ; resultant value is in the range of 
03 15 005 6 BLEQ EXCH_ COMMON : 1 to 4 blocks 
55 04 005 6 MOVL #4,R5 : 
005 7 
005 Ti 34 
005 72 ; Compute DAP buffer size to request in the DAP Configuration message based on: 
005 73; (1) the (modified) network block count value, 
005 74; (3 the addition of up to 8 bytes of overhead per DAP DATA message, 
005 75 ; (3) the desire to be able to block a DAP CONTROL message with the first set 
005 76; of blocked DATA messages in file transfer mode, 
005 77; = =(4) the gosire to have the DAP buffer fit into the nominal Line buffer size 
005 78 ; of 576 bytes (which includes lower Layer protocol overhead) when the NBC 
Ope ; : is one or the remote FAL can support only a one block data buffer. 
005 : 
005 § EXCH_COMMON: ; Compute DAP buffer size to request 
08 55 »b1 005 CMPL R5,#8 3; Choose a formula based on NBC size 
OA 15 005 4 BLEQ 10$ 3 to optimize requested buffer size 
56 208 gf 3¢ Bee 32 MOVZWL £57 1g+S> 6 ; Compute desired buffer size using the 
6 5 64 5F $ MULL R5,R 3; formula: C * (51 vy where 
08 11 0062 28 BRB EXCH INIT ; NBC has a value from 9 to 126 
56 0204 8F 3C 0064 88 10$: MOVZWL #<512+4>,R6 ; Compute desired buffer size using the 
7. 33 €6 Boer 89 MULL R5,R6 : formula: (NBC * (51244) + where 
56 «61C) «6CO «(006C )=— 290 ADDL2 #28,R6 : NBC has a value from 1 to 
oer 392 :+ 
O6F 38 3; Initialize the DAP control block and the transmit and receive buffers in the 
O6F 94 ; NWA, These buffers will be used to exchange DAP Configuration messages, then 
O6F 95 ; they may be replaced by larger DAP buffers if the negotiated DAP buffer size 
O6F 38 ; is larger than NWASC BUFFERSIZ. Note that the transmit buffer is used for 
ber 97 ; both building a new BAP mpseage (BLD descriptor) and for concatenating DAP 
O06F 98 ; messages before sending them to FAL (XMT descriptor). 
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NTOACCFIL.MAR;1 
Initialize control block and buffers 


Zero DAP control block 


; Get start address of descriptors 
Initialize receive descriptor 


SS ROUTINES ot St 9 $348 $ 
CHANGE DAP CONFIGURATION 5=SEP=-1984 16:20:11 CRMS.SRC 
EXCH_INIT 3 
SZERO. FILL= 3 
DST=(R7)=- : 
SIZE=#DAP$C_BLN 3 
ASSUME NWASC_BUFFERSIZ GE <512+4+28> 
ASSUME NWASQ-XMT EQ NWASQ_RCV+8 
MOVAQ NWASQ_RCV(R7),RO 
CLRL + 
MOVAB WWAST RCVBUF (R7) , (RO) + 
CLRL (RO)+ 
MOVAB NWA$T MATBUE CRT) » (RO)+ 
MOVW #NWAST_B 


Make the preallocated buffer size 


: Initialize transmit descriptor 
; the current DAP buffer size 


$12 
NWASW  BAPBUF S12 (R7) 


:* 
; Build and send DAP Configuration message to partner. 
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r+ RRB EES 4 
ON 2 SS MM WUT ONAN HH Oe 
AAA AIN AAAI NAAN AANA AANA A AAIAINI 


CON AUS WO ODNAUE WN 0 OONOUSWN—O)0 MO 


PIPPIN) 2 2 SS OOOO 


SEND_CNF: : (required message) 
SSETBIT ae _LAST_MSG, (R7) ; Declare this last message to block 
50 01 0 OVL cGNe " : Get message type velue 
FF65" 30 BSBu nyse ; Construct message header 
2 ie MOVW R6, ; Store BUFSIZ field (desired value) 
85 07 90 9E MOVB PDAPSK VAXVNS . (RS) : Store OSTYPE field 
85 03 90 Al MOVB #DAPSK_RMS32, (R5)+ 3; Store FILESYS field 
85 07 90 O0A4 ; MOVB #DAPSK_VERNUM_V,(R5)+ ; Store VERNUM field 
85 00 90 Q0A7 $2 MOVB #DAPSK_ECONUM_V,(R5)+  ; Store ECONUM field 
85 00 90 00 0 MOVB #DAPSK_USRNUM_V, (R5)+ : Store USRNUM field 
85 04 90 OOAD 31 MOVB #DAPSK_DECVER_V,(R5)+ ; Store DECVER field 
85 00 90 QO 3 MOVB DAPSK_USRVER_V,(R5)+  ; Store USRVER field 
51 EFF67DF7 8F DO 00B 3 MOVL #DAPSK_SYSCAPT_V,R1 : Get VAX supported capabilities 
52 00001962 er 0 OOBA $0 VL #DAPSK_SYSCAP2_V,R2 + .quadword mask 
FF3C* 30 00C1 5 BSBW NTSCVT_BN8_EXT : store SYSCAP as an extensible field 
FF39° 30 00C4 $$ BSBW 3=s NTSBUICD TAIL ; Finish building message 
FF36° 30 00C7 7? BSBW NTSTRANSAIT ; Send Configuration message to FAL 
03 50 8 OOCA Hy BLBS RO,RECV_CNF ; Branch on success 
009A 1 O0CD 9 ERROR1: BRW ERROR ; Branch on failure 
0000 40 
00D0 41 ;+ 
80 4g ; Receive DAP Configuration message response from partner. 
00D 44 
00D 45 RECV_CNF: (required message) 
4 rt $SETBIT #DAPSK_CNF_MSG,DAPSL _MSG' MASK R7) 
OD 4 3; Expect response, ¢¢ configuration msg 
FF28° 30 0005 rt BSBW NTSRECEIVE ; Get reply from F 
4 50 +4 008 4 BLBC RO ay ROR1 ; Branch on failur 
42 A7 0 ites 50 MOVB DAP B_OSTYPE(R7),- ; Save OSTYPE field in NWA 
00C4 C7 44 51 NWASB_OSTYPE(R7) : 
e3 AZ 90 E 26 MOVB P$B_FILESYS(R7),- ; Save FILESYS field in NWA 
00C5 C7 +) e? NWASB"FILESYS(R7) 3 
€7 55 


} 
| 
| 


a 7 

NES 15-SEP-1984 23:48:14 VAX/VMS Macro V04-00 P | NT( 
AP CONFIGURATION mit) y 6:20:11 YRMS SRCINTORCCEIL MARS 1 wi (3) 

i 
t 


ne the ‘agreed upon’ DAP buffer size to use and save this value. 
he smaller of partner's buffer size and our requested buffer size. 
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MOVW R6,NWASW_DAPBUFSIZ(R7) Assume we'll use requested buffer size 
Use our buffer size if partner 


TSTW © DAPSW_BUFS1Z(R7) ; 
; has unlimited buffer space 
ORL OU BUF SEZCRI) RO ; Use our buffer size if partner 


Wr OO0ONO Mo 


OOCA C7 36 B 
40 A ; 
56 40 A B1 
if has buffer size GEQ ours 
DAP$W_BUFSIZ(R7),- Use partner's buffer size which is 
NWASW~DAPBUF $12(R7) 


smaller than ours 


3% 

; Allocate big DAP buffers if standard size buffers already allocated as part of 
; the NWA are not sufficient. Note that the transmit buffer will be twice the 

; size of the receive buffer (or twice NWASW_DAPBUFSIZ) as it is used for both 

:; building new DAP messages and for concatenating DAP messges before a iy 

3; them to FAL. The overflow buffer space may be used when a new message is being 
3; constructed and there are messages already blocked in the transmit buffer. 


1Z(R7) ,R6 Get negotiated DAP buffer size 
FERSIZ 


10$: MOVZWL NWASW_DAPBUFS 
CMPW F Use standard buffers if they are large 


R6,#NDASC_BU 
BLEQU 208 
ADDL #7,R6 

#7,R6 

#3,R6,R2 


BSBW RMSGETPAG 


RO.ERROR 
MOV = R2.NWA$Q_BIGBUF (R7) 
R3,NWASQ-RCV#4(R7) 


Tas 
R3,NWASQ_XMT+4(R7) 


3; _enoug 
; Round up buffer size to quadword 

; _boundary J 

3; Compute size of desired receive buffer 
; pie a Coiontongty transmit buffer 
; Allocate space (NOT ZEROED) 

; Branch on failure 

; Update big buffer descriptor 

3 Update receive descriptor 

3; Move pointer to next buffer 

3; Update transmit descriptor 
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Determine the maximum record size that can be supported for network access 
in record 1/0 operations. This is accomplished by examining the negotiated 
DAP buffer size and then updating the device buffer size value in the IFAB 
(if appropriate from its initial setting in NTSMOD_DEV_CHAR). 5D 


The value in IFBSL_DEVBUFSIZ establishes the network record size Limit as 
this value is used by RMS at SCONNECT time to allocate the BDB buffer. The 
size of this buffer determines the becaest record that can be moved to/from 
user's buffer during $GET, SPUT, and SUPDATE operations on a remote file. 


The algorithm establishes a maximum record size that is equal to 1 to 64 pages 
of memory (i.e., 512, 1024, ..., 32768 bytes). 


Note that AFG DEVBUFSIE does not Limit the size of a user block 1/0 request 
which can be from 1 to 127 blocks. 


; Get negotiated DAP buffer size 


208: MOVZWL NWASW_DAPBUFSIZ(R7),R6= ; 
U ; Subtract DAP DATA message overhead 


z 
SUBL2 
ASHL #-9,R6,R6 


; Compute # whole pa | 
BEQL ~=-*&FINISH 


pages 
; Keep initial value if DAPBUFSIZ < 520 
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NTOACCFIL COMMON FILE ACCESS ROUTINES 15-SEP-1984 23:48:14 VAX/VMS Macro v04-00 Page | 
v04-000 NTSEXCH_CNF = EXCHANGE DAP CONFIGURATION aS ee 138 18:3 711 YAMS SRCINTOACCEIL MAR: 1 . ) 
40 8F 56 91 O13A 413 CMPB R6, #64 ; Limit value to 64 pages as the largest 
oF 1B 138 414 BLEQ ; record defined by R S$ is slightly” 
56 40 BF 9A Q14 415 MOVZBL = R6 ; less than ytes 
4849 56 09 78 be £18 30S: ASHL  #9,R6,1FBSL_DEVBUFSIZ(R9S;Compute Largest record size supported | 
| 
149 $18 
149 419 s+ | 
149 420 ; While we have both a FWA and a NWA, move the nodename (sans delimiters or 
149 421 ; access strings? and the nodename size to NWAST_NODEBUF & NWAS$B_NODBUF SIZ 
149 4 § ; for use by NISCRC_LOGERR. 
149 423 ;- 
149 424 
149 425 FINISH: ; Miscellaneous 
53 O7E9 CA 9E 0149 4 § MOVAB FWAST_NODEBUF(R10),R3  ; Get address of nodename (spec List) 
63 07 22 3A O14 4 LOCC  #*A/"'7,#FWASC_MAXNODNAM+1,(R3) ; Search for quote 
04 12 0152 428 BNEQ 10% : Branch if access control string 
63 07 A 3A 0154 429 LOCC #°A/:/,#FWASC_MAXNODNAM+1,(R3) ; Find the colon (must be there) 
25 51 53 ¢3 0158 430 10$ SUBL R3,R1,R2 ; Compute the nodename Length 
0169 C7 63 «©4520 «2B «O01Sc 431 MOVC3 R2.(R$) ,NWAST_NODEBUF(R7S;:Move nodename to NWA 
0168 C7 +52 90 O16¢ $35 MOV R2,NWASB_NODBOFSIZ(R7) ; Move Length to NWA 
B19 43 RMSSUC 3; Return success 
05 O16A 434 ERROR: RSB ; Exit with RMS code in RO 
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344 
3; NTSGET_FILESPEC = builds a filespec (less primary node name) from its 
constituent parts and stores it as a counted ASCII string. 


Calling Sequence: 
BSBW NTSGET_FILESPEC 
Input Parameters: 


R5 Address of buffer to receive counted ASCII string 

R7 NWA address 

R8 FAB address 

Rg IFAB address 

R10 FWA address 

R11 Impure Area address 
Implicit Inputs: 

FWASB_DIRTERM 

FWASQ_ DEVICE 

FWASQ_DIR1 

FWASQ_DIR 

FWASQ DIR2+8 thru FWASQ_DIR2+48 

FWASQ_NAME 

FWASQ_QUOTED 


W 
FWASV_DIR_LVLS 
FWASV_QUOTED 
NWASB_OSTYPE 


Output Parameters: 


RO-R3 = Destroyed : ; 
R5 Updated buffer pointer (address of end of string + i) 


DOD DGDOHODOD OOD DO DODO DD ODD DDO ODDO D 


AP Destroyed 
Implicit Outputs: 
None 


Completion Codes: 
None 

Side Effects: 
None 
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NTOACCFIL COMMON FILE ACCESS ROUTINES 15-SEP-1984 23:48:14 VAX/VMS Macro V04-00 Page 
yon 000 NTSGET_FILESPEC = BUILDS A FILESPEC ant ae 4 P $3358: 43 RMS.SRCINTOACCFIL.MAR;1 . 
168 493 NTSGET_FILESPEC:: 3; Entry point 
150 BE BB O16 494 ~"BUSHR  #*MCRG,RO,RB> : Save registers 
3 D 19f 495 MOVL R5,R3 3; Copy next byte pointer 
: 94 01 2 496 CLRB = (R48) + ; Skip over count byte 
58 dO \f rh 44 MOVL R3,R8 3; Save pointer to start of DST string 
177 «499 ; 
177 0 ; Process secondary node spec strings. 
bip7 803 
2F AA 95 0177 68 TSTB FWASB_SUBNODCNT (R10) ; Branch if there is only one 
24 13 O17A fe BEQL 1 ; _node spec in node spec List 
50 0184 CA 3¢ O17C 5 MOVZWL FWAS$Q_NODE1(R10) ,RO ; Get size of primary node spec 
51 0008 CA 50 A3 0181 506 SUBW3 RO, FWASQ_NODE (R10) R1___; Compute descriptor of concatenated 
52 O0DC CA 50 Ci 0187 507 ADDL RO, FWASQ-NODE+4(R10) ,R2 : secondary node spec strings 
- eT 51 28 018D 508 MOVC R1,(R2),TR3) ; Copy secondary node specs 
0191 509 
0191 10 ; 
8193 1 ; Process quoted string. 
813) 218 ; Note: If there is only a primary node spec, then the quoted string is copied 
191 514 ; with the quote delimiters removed. Converseiy, if secondary node specs 
0191 515; are present, then the quoted string is copied with the quote delimiters 
0191 516; intact. 
0191 S17 3: 
0191 518 
04 6A 35 €0 0191 519 BBS #FWASV_REMRESULT,(R10),5$; Branch if result already delivered. 
22 6A_ 1A £1 0195 520 BBC #FWASV-QUOTED, (R10) ,30$ ; Branch if no quoted string follows 
50. 0170 CA 7D 0199 521 S$: MOVQ FWASQ_GUOTED(R10),RO ; Get descriptor of quoted string 
O19E 5 § ; (including quote delimiters) 
14 11 QO19€ 5 BRB 208 ; Join common code 
F5 6A 35 €O QO1A0 524 108: BBS #FWASV_REMRESULT, (R10) 5$; Branch if result already delivered. 
136A 1A €1 O1A4 525 BBC #FWASV-QUOTED, (R10) ,30$ ; Branch if no quoted string follows 
50 0170 CA 02 C3 O1A8B 526 SUBL3 #2,FWASQ_QUOTED(R10),RO ; Get size of string less quotes 
51 0174 CA O01 C1 O1AE 527 ADDL3 #1, FWASQ~QUOTED+4(R10),R1;Get address of string 
63 61 50 ¢ 0184 528 20$: MOVC3 RO,(R1),TR3) ; Copy quoted string 
0098 1 0188 529 BRW 126$ ; Join common code 
0188 530 
0188 23) 3 
01BB «5 § 3; Process device name. 
01BB 533; 
0O1BB 534 
0B 6A OF €1 O1BB 535 50$: BBC #FWASV_DEVICE,(R10),40$ ; Branch if no device name preseni 
OE0 CA 28 O1BF 3 6 MOVC3 FWASQ BEVICE(R10) ,- - Copy device name 
63 O0E4 DA 1¢3 @FWASG_DEVICE+4 (R10), (R3 
83 3A 90 Bee 3 MOVB #*A\:\7 (R35) + ; Append delimiter 
SICA 40 ; J y 
O1CA 41 ; Process directory_list. 
pica 348 ; It is either in the Cgroup,member] or Cdirectory_name_list] format. 
O1CA 544 * 
4A 6A OE 4 1CA 545 408: BBC #FWASV_DIR, (R10) ,90$ ; Branch if no directory present 
OA AA 08 3 O1C 46 SUBB3 #2, FWASB_DIRTERM(R10),- :; Store left bracket ('L' or ‘<') 
8 1D 4 (RS)+ : (ASCII code is right bracket + 2) 
2A 6A_ 1B £0 1D 8 BBS #FWASV_GRPMBR,(R10),70$ ; Branch if Cgroup,member] format 
56 0130 CA —E 01D 4 MOVAQ FWASQ_BIR1(R10) ,.R6 ; Get address of directory descriptor 
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NTOACCFIL COMMON FILE ACCESS ROUTINES 15-SEP-1984 23:48:14 VAX/VMS Macro V04-00 Page 12 | NTC 
v04-000 NTSGET_FILESPEC = BUILDS A FILESPEC ae ae SP 18:36:14 URNS SRCINTOACCFIL MAR: 1 (4) | vO4 
9 EF Q1DC 9 EXTZV #FWASV_DIR_LVLS,- ; Get # of directory sub-levels | 
5¢ A 195 2 #FWASS DIR_LVLS,(R10),AP; (0 means UFD Level only) 
0 § 9 1E 4 50$ MOVL (R6)+,RO ; Get size of string 
63 $ 164 3 MOVC3 RO,a(R6)+, (R3) ; Copy next (sub)directory name 
8 f 0 O1E8 4 MOVB WANN, (RS) 4+ ; Copy otrgctory separator 
OS FB AB 1 E1 18 55 BBC #FSCBSV_ELIPS,-8(R6) ,60$ ; Branch if elipsis does not follow | 
1F 2$ ; (sub)directory name 
83 2E2E He B0 iF 5 MOVW #*A\..N, (R34 3 Append two dots to make an elipsis 
E9 5C =6F4OOTF 58 608: SOBGEQ AP,50$ ; Branch if more directory names 
17 FB AG 10 EO O1FB 559 BBS #F SCBSV_ELIPS,-&(R6) ,80$ ; Branch if we just copied an elipsi 
53 pb? «6(01FD «= «4560 DECL = R3 ; Otherwise, remove unwanted (single) 
1 11 OFF 61 BRB 80$ 3; trailing dot 
8139 CA 28 8$0¢ °6 70$: MOVC3 FWA$Q_DIR1(R10),- ; Copy group directory field 
63 0134 DA 0205 56 @FWASG_DIR1+4(R10),(R3) ; 
83. 2c 38 0209 ee MOVB #*A\,\,(R3)+ 3 Copy directory separator 
0138 CA 28 020¢ 565 MOVC3 FWA$Q_OIR2(R10) ,- : Copy member directory field 
63 _ 013C DA 0210 366 @FWASO_DIR2+4(R10),(R3) ; 
83 OA AA 90 BSi8 a4 80$: MOVB FWASB_BIRTERM(R10),(R3)+; Store right bracket ('J' or '>*) 
osi8 569 ; : 
021 570 ; Process file name, file type, and file version. 
| os 571 ; To facilitate communication with non-VMS systems, several system specific 
o¢18 26 3 version number checks will be made. 
0218 574 ; Note: The file name string described by FWASQ_NAME is guaranteed to contain 
osi8 575 ; both the ‘'."' and '';" delimiters, even if the user did not specify a 
021 576 ; file type or file version number. Furthermore, a ‘'.'' version number 
0218 577; delimiter entered by the user will have been converted to a "’;'' 
0218 578; delimiter by RMOXPFN! 
0218 579; 
0218 580 
170 CA 28 0218 581 908: MOVC3 FWASQ_NAME(R19),- : Copy file name string (assembled 
63. 0174 DA 021C 286 @F WASG_NAME+4 (R10), (R3) 3; _into one string by MOXPFN) 
32 67 34 ~~ €0 Ossie 27 BBS #DAPSV_VAXVMS,(R7),120$ ; Branch if partner is VAX/VMS 
0224 585; ‘ 
0224 586 ; If the remote node is not VMS, delete the trailing semi-colon (null version 
0224 587 ; number) if the user did not explicitly enter a version # in the primary 
0224 588 ; filespec string. 
0994 890° 
OE 6A 10 €0 0224 591 BBS #FWASV_EXP_VER,(R10),100$;Branch if version # was explicit 
3B «6 FF AS) O91) (0228 235 CMPB =1(R3) MAAN \ : Is last character a semi-colon? 
98 Is 8 C 28 BNEQ a ; Branch if not 
5 D E 94 DECL R 3; Otherwise delete it here and from 
0170 CA 867 8S 0 595 DECW FWASQ_NAME (R10) : filename descriptor in FWA 
20.=—=(o11 4 239 BRB 1208 ; done 
Be 
§ 6 238 ; If. the remote node is RT-11, remove the version number substring (either 
0 ? 900 : 's" or “sver") because RT-11 does not recognize the version number element. 
6 6 § 
50 0180 CA 3C ste : 
g D6 3B 604 ; Add semi-colon delimiter to count 
OA 67 E1 3D ©6605 BBC SPAR v A111. CTD 1108 ; Branch if remote node is not RT-11 
2 we fe 41 606 SUBL2 RO,R ; Delete version number substring here 


100$: novel. FWASQ_VERSION(R10),RO ; Get number of digits in version # 
| 
| 


i 
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NTOACCFIL COMMO LE ESS ROUTINES 15-SEP=1 a q! 74 AX/VMS Macro V04-00 Page 
v04-000 NTS$GE LES - BUILDS A FILESPEC 5-SEP-1964 16: 20: RMS.SRCINTOACCFIL.MAR;1 
0170 CA 50 Ag SUBW2 RO, FWASQ_NAME(R10) 3; .and from filename descriptor in FWA 
0B 1 BRB 126 ; ALL done 


If the remote node is TOPS-20, convert the '';'’ version number delimiter to a 
"'" delimiter because TOPS-20 requires uses the semi-colon character as a 
file attribute delimiter. 


— Be Se Se te te 


10$: BBC #DAP$V_TOPS20,(R7),120$ ; Branch if remote node is not TOPS-20 
SUBL3 =RO,R3,R1 Calculate address of delimiter 
MOVB #*A\. * (R1) Convert period to semi-colon 


; Finish building counted ASCII string. 


120$:  SUBL3 Calculate size of string 


os 38 ¢ R8,R3,RO 3 
FF AB 50 90 MOVB RO,-1(R8) ; Store the count 
55 2 dO MOVL R3,R5 ; Put next byte pointer in proper reg 
0150 8 4 4 my #*M<R4,R6,RB> ; pegeere registers 
3 Exi 
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END ; End of module 


NTOACCFIL COMMON FILE ACCESS ROUTINES 1g-SE0~ 138% 23:48:16 YAXZ VAS Macro Vv04-00 
Symbol table 5-SEP-1984 16:20:11 CRMS.SRCINTOACCFIL.MAR; 1 
$$.PSECT_EP = $000000 DAPSM_TMP2$ = 0000F C00 
S$SCOUNT = 00000006 DAP$Q-DCODE_FLG a4 a4 
SSRMSTEST = aE DAP$Q_FILESPEC 000 eee 
SSRMS_PBUGCHK = 0000 H DAP$Q"MSG_BUF 1 0000008 
$SRMS_TBUGCHK = 980000 DAP$Q_MSG_BUF2 eS bt 
$$RMS_UMODE = 00000004 DAP$Q_PASSWORD PON 
DAP$B_ACCFUNC 00000040 DAPS$SQ"SYSCAP 0000 Oe 
DAP$B_ACCOPT 00000041 DAP$Q_SYSPEC 4 8 
DAP$B_BITCNT 00000035 DAPS$V_RT11 = 00000038 
DAP$B_DCODE_FID 00000019 DAP$V_TOPS20 = 00000037 
DAP$B_DCODE_MA 0000001B DAP$V_VAXVMS = 00000034 
DAP$S_DCODE MSG 0000001A DAP$W_BUF SIZ tS pe 
DAP$B_DECVE 00000047 DAP$W_DISPLAY1 000004C 
DAPS$B_ECONUM 00000045 . DAP$W_PARTNER 00000006 
DAP$B_FAC S44 94 DAP$W_VERSION 00000004 
DAPSB_FILESYS 0000004 ERASE _RENAME 0000002D R 01 
DAPSE_FLAGS 00000031 ERROR 0000016A R 01 
DAP$B_LEN256 00000034 ERROR1 OOOOO0CD R 01 
DAP$B_LENGTH 00000033 EXCH_ COMMON 00000055 R 01 
DAP$B_OSTYPE ie od EXCH" INIT OOO0006F R 01 
AP$B_SH 0000004 FINISH 00000149 R 01 
DAPSB_STREAMID 00000032 FSCBSV_ELIPS = 00000010 
DAPSB_TYPE 00000030 FWASB_BIRTERM = 0000000A 
DAP$B_USRNUM 00000046 FWASB_SUBNODCNT = 0000002F 
DAP$B_USRVER 00000048 F WASC_MAXNODNAM = 00000006 
DAP$B_VERNUM 00000044 FWASQ_DEVICE = Bo 0808 
DAP$B_X FIELD 00000024 FWASQ_DIR1 = 00000130 
DAPS$C_BCN 000000C0 FWASQ_DIR2 = 00000138 
DAPS$K_BLN 000000C0 F WASQ_NAME = 00000170 
DAPS$K_CNF _MSG = 09000001 FWASQ_NODE = 00000008 
DAPS$K_CREATE = 00000002 A$Q_NODE1 = 00000184 
DAPSK_DECVER_V = 00000004 FWASQ_QUOTED = 00000170 
DAP$K_DIR_LIST = 00000006 FWASQ_VERSION = 00000180 
DAPSK_ECORNUM_V = 00000000 FWASS_DIR_LVLS = 00000003 
DAPSK_ERASE = 00000004 FWAST_NODEBUF = TA 
DAP$K_OPEN = 00000001 FWASV_DEVICE = 0000000F 
DAP$K_RENAME = 00000003 FWASV_DIR = 0000000E 
DAPS$K_RMS32 = 00000003 FWASV_DIR_LVLS = 0000001D 
DAP$K_SYSCAP1_V = EFF6/7DF7 FWASV_EXP-VER = 00000010 
DAPSK_SYSCAP2_V = 00001962 FWASV_GRPABR = 00000018 
DAPS$K_USRNUM_ = 00000000 FWASV_QUOTED = QQOOQ001A 
DAPSK_USRVER_V = 00000000 FWASV_REMRESULT = 00000035 
DAP$K_VAXVMS = 00000007 IFBSL-DEVBUF SIZ = 00000048 
DAP$K_VERNUM_V = 4 NTSBUTLD_HEAD teeeeeee 01 
~CAWA 0000030 NTSBUILD" TAIL eeeteene 01 
DAPS$L_CRC_RSLT 00000020 NTSCVT_BN8_EXT aeeeenee =X 01 
DAPSL_DCOBE_STS BRO p pO TE NTSEXCA_CNF 00000000 RG 01 
DAP$L_MSG K 000001C NTSGET FILESPEC 00000168 RG 01 
DAPS$L_SSPO ais 34 NTSRECEIVE aeeeeeee =X 0] 
DAP$L_ TEMP 0000009 NTSTRANSMIT aeeeeees 01 
DAPSM_BITCNT = eit NWASB_ALLXABCNT 0000011C 
DAPSM_DSP_3NAM = ats NWA$B_DAP 000000C9 
APSM_GET = 0000000 NWASB_FILESYS 000000C5 
DAP$M_GO_NOGO = 3808 4 NWASB_KEYXABCNT 8808 11D 
P$M_MSE = 8 0001 NWASB_NETSTRSIZ 000016F 
DAPSM_ SEGMENT = 00000040 NWAS$SB_NODBUF SIZ 00000168 
DAPSM_TMP1$ = 000000C0 NWA$B_ORG 000000C6 
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Symbol table 

NWASB_OSTYPE 

NWASB_RFM 

NWASB_RMS_RAC 

NWASC_ 

NWASC_BUFFERSIZ = 
NWASK— 

NWASL_ALLXABADR 

NWASL_DATXABADR 

NWASL_DEV 


NWASL_FHCXABADR 
NWASL_KEYXABADR 


V 
RMSGETPAG ekkkeeee 
ARCH 


=< 
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Soe 


SEND_CNF 
SYS$GB_DFNBC keeeteee xX 
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NWASL_XLTCNT 
NWASL_XLTMAXINDX 
NWASL-XLYSIZ 


ooo 


NWASW”BUIL 
NWASW”DAPBUF S12 
NWASW~DIR_OFF 
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NTOACCFIL COMMON FILE ACCESS ROUTINES it tat 9 $3: 
Psect synopsis 5-SEP-1984 16 


PSECT name Allocation PSECT No. Attributes 


- ABS . 
NF SNE TWORK 00000266 ( 614.) 01 ¢ 
SABSS 


$oeeeeseceeeecesooesecescn} 


Phase Page faults CPU Time Elapsed Time 


Initialization 30 00:00:00.06 00:00:00.63 
Command processing 141 bs Be og 00:00:04.20 
Pass 342 00:00:12.6 00:00:38.01 
Symbol table sort 0 4b SE 00:00:02.40 
Pass 2 124 00:00:02.6 00:00:06.58 
Symbol table output 22 00:00:00.16 00:00:00.33 
Psect synopsis output 2 00:00:00.03 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 663 00:00:17.90 00:00:52.19 


The working set_Limit was 1500 pages. A 

67627 bytes_(133 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1186 non-local and 24 local symbols. 
630 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

24 pages of virtual memory were used to define 23 macros. 


$eecceceesoesoeeceecccecsce 


! Macro Library statistics : 
-oereeroeeereeeoeeeeeeeeceeseeece= 


Macro Library name Macros defined 
_$255$DUA28: CRMS .OBJIJRMS.MLB; 1 15 
$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 19 


1400 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTOACCFIL/OBJ=OBJ$:NTOACCFIL MSRC$:NTOACCF IL/UPDATE=(ENHS:NTOACCFIL)+LIB$:RMS/LIB 


AX/VMS Macro V04-00 
RMS .SRCINTOACCFIL.MAR; 1 


00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NO 
1 PIC SR CON REL GBL NOSHR 


u NORD NOWRT NOVEC BYTE 
00000800 ( 2048.) 02 ¢ 2:) NOPIC USR CON ABS LCL NOSHR 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
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